home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / ACC_CPX / MABOOG / BOOTPICC.Q < prev    next >
Encoding:
Text File  |  1989-06-16  |  1.9 KB  |  65 lines
  1. ;--------------------------------------
  2. ;      Bootsektor-Pictureleser
  3. ;      Colorversion
  4. ;      Version 0.5color
  5. ;      (c)1989 by Martin Möller
  6. ;                 Klopstockweg 23
  7. ;                 4440 Rheine
  8. ;--------------------------------------
  9. ; Liest Bild PICTURE.PI1 von Disk A:
  10. ; Bild liegt im Screenformat vor
  11. ;--------------------------------------
  12.        move.w #$00,$482   ; kein Command.Prg laden
  13.        move.w #$04,-(sp)  ; Getrez()
  14.        trap #14           ; do it!
  15.        addq.l #2,sp
  16.        cmp.w #$0,D0       ; Low-Resolution
  17.        bne error          ; Nein, dann Ende
  18.        move.w #2,-(sp)    ; read/write
  19.        pea fname          ; A:\PICTURE.PI1
  20.        move.w #$3D,-(sp)  ; Fopen
  21.        trap #1
  22.        addq.l #8,sp
  23.        tst.w D0
  24.        bmi error
  25.        move.w d0,d7       ; Handle nach D7
  26.        pea adr            ; def. Block
  27.        move.l #34,-(sp)   ; 34 Byte
  28.        move.w d7,-(sp)    ; Handle
  29.        move.w #$3F,-(sp)  ; Fread
  30.        trap #1
  31.        add.l #12,sp
  32.        pea color          ; Colorblock
  33.        move.w #$06,-(sp)  ; Setpalette
  34.        trap #14
  35.        addq.l #6,sp
  36.        move.w #$02,-(sp)  ; Physbase
  37.        trap #14
  38.        addq.l #2,sp
  39.        move.l D0,-(sp)    ; Physbase
  40.        move.l #32000,-(sp) ; Bilddaten
  41.        move.w d7,-(sp)    ; Handle
  42.        move.w #$3f,-(sp)  ; Fread
  43.        trap #1
  44.        add.l #12,sp
  45.        move.w d7,-(sp)    ; Handle
  46.        move.w #$3E,-(sp)  ; Fclose
  47.        trap #1
  48.        addq.l #4,sp
  49.        move.w #$02,-(sp)  ; 'con:'
  50.        move.w #$02,-(sp)  ; Bconin
  51.        trap #13
  52.        addq.l #$04,sp
  53. error: clr.l D0           ; all right!
  54.        rts                ; return if you want!
  55. txt:   dc.b "Hallo, hier bin ich!",$00,$00
  56.        align.w
  57. hndl:  dc.w $0000
  58. fname: dc.b "A:\PICTURE.PI1",$00
  59.        align.w
  60. adr:   dc.b $00,$00
  61. color: dc.w $000,$001,$002,$003,$004,$005,$006,$007
  62.        dc.w $008,$009,$010,$011,$012,$013,$014,$015
  63.        end
  64.